* src/comp.c (declare_function): fix missing NILP.

diff --git a/src/comp.c b/src/comp.c
index 2f59164b770aaf3727924e06b20c75111d2fa221..e95ab51cb56ff7c77e54911455c5fa081954fc72 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -3016,7 +3016,7 @@ declare_function (Lisp_Object func)
   gcc_jit_function *gcc_func;
   char *c_name = SSDATA (CALL1I (comp-func-c-name, func));
   Lisp_Object args = CALL1I (comp-func-args, func);
-  bool nargs = (CALL1I (comp-nargs-p, args));
+  bool nargs = !NILP (CALL1I (comp-nargs-p, args));
   USE_SAFE_ALLOCA;
 
   if (!nargs)